COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.<< PUB macros for a PO requisition >>
C00008 ENDMK
C⊗;
.<< PUB macros for a PO requisition >>

.device xgp;
.page frame 53 high 80 wide
.title area heading lines 1 to 6;
.area text lines 4 to 53;
.oddleftborder←evenleftborder←1000;
.turn on "α%";
.font 1 "baxl30"; font 2 "baxi30"; font 3 "baxb30"; font 4 "baxs30";
.font 5 "sta200";  font 6 "stan2";  font 7 "ngb25"; font 8 "micr25";
.	<< output a ligature & restore fonts >>
.recursive macro lig(A);  ⊂start f_f←thisfont; ("%*%4αA%*%"&f_f) end⊃;
.
.AT "ff" ⊂ if thisfont=1 then lig(@) else if thisfont=2 then lig(P)
.  else if thisfont=3 then lig("`") else "fαf" ⊃;
.AT "ffi" ⊂ if thisfont=1 then lig(A) else if thisfont=2 then lig(Q)
.  else if thisfont=3 then lig(a) else "fαfαi" ⊃;
.AT "ffl" ⊂ if thisfont=1 then lig(B) else if thisfont=2 then lig(R)
.  else if thisfont=3 then lig("b") else "fαfαl" ⊃;
.AT "fi" ⊂ if thisfont=1 then lig(C) else if thisfont=2 then lig(S)
.  else if thisfont=3 then lig(c) else "fαi" ⊃;
.AT "fl" ⊂ if thisfont=1 then lig(D) else if thisfont=2 then lig(T)
.  else if thisfont=3 then lig(d) else "fαl" ⊃;
.AT "--" ⊂ if thisfont=1 then lig(E) else if thisfont=2 then lig(U)
.  else if thisfont=3 then lig(e) else "α-α-" ⊃;
.oddquote←false;
.at """" ⊂ (if 0<thisfont<4 ∧ (oddquote←¬oddquote) then "``" else "''") ⊃;
.
.turn on "↓_\{}";
.select 1
.nofill
.spacing 0 mills

.macro header
.  ⊂ 
.  begin
.  center
.  select 3
↓_PURCHASE_REQUISTION_↓
↓_WORK_SHEET_↓
.  end
.  ⊃

.macro solidline
.  ⊂
________________________________________________________________________________
.  ⊃

.macro line1(acct,deliv,phonext)
.  ⊂
.  tabs 24,60,80;
.  solidline
| University Account No.:\| Department/Delivery Point:\| Phone Extension:\|
| acct\| deliv\| phonext\|
.  ⊃

.macro line2(over200p)
. ⊂
.  tabs 24,80;
.  solidline
| Date Requisition Written:\| Capital Equipment (cost over $200/item and\|
| {date}\| expected life over 1 year) {IF over200p THEN "YES" ELSE "NO"}\|
. ⊃

.macro line3(reqdate,over1000p)
.  ⊂
.  tabs 24,80;
.  solidline
| Date Required:\|Components for Fabricated Equipment\|
| reqdate\|(total cost of equipment over $1000) {IF over1000p THEN "YES" ELSE "NO"}\|
.  ⊃

.macro begintable
.  ⊂
.  tabs 6,12,18,60,80
.  itemno ← 0;
.  solidline
|item#\| Qty\| Unit\| Description of Materials\| Unit Cost\|
.  solidline
.  ⊃

.macro item(qty,unit,dscr,cost)
.  ⊂
.  turn off "%"
.  itemno ← itemno + 1;
|{itemno}\| qty\| unit\| dscr\| cost\|
.  turn on "%"
.  solidline
.  ⊃

.macro remark(topic)
.  ⊂
.  indent 0,4
.  nofill
%3↓_topic_↓%*
.  ⊃